home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / special_19.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  505 b   |  18 lines
  1. on mouseUp
  2.   puppetSound("foundspec")
  3.   put EMPTY into field "op"
  4.   delete char -30000 of field "op"
  5.   delete char -30000 of field "op"
  6.   put field "op" into field "mainop"
  7.   put "cargoconveyor" into field "maincasterphoto"
  8.   puppetTransition(47, 1, 8)
  9.   put the number of lines in field "tblca_Fe,FEATURE"
  10.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  11.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  12.     play frame "specb"
  13.     abort()
  14.   end if
  15.   play frame "speca"
  16.   abort()
  17. end
  18.